home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)sa.d64 / rondo 123 boot (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  1KB  |  35 lines
  1. 1 REM  RONDO BY LUDWIG VAN BEETHOVEN
  2. 2 REM  ARRANGED USING MASTER COMPOSER
  3. 3 REM  BY DAVE SCHMOLDT 72356,2574
  4. 4 POKE53280,0:POKE53281,0:PRINT"[158]":PRINTCHR$(14)
  5. 10 IFA<>0THEN30
  6. 15 POKE56,97:POKE52,97
  7. 17 PRINT"[147][204]OADING [208]ART 1.."
  8. 20 A=1:LOAD"RONDO1",8,1
  9. 30 IFB<>0THEN43
  10. 35 PRINT"[204]OADING [208]ART 2...."
  11. 40 B=1:LOAD"RONDO2",8,1
  12. 43 IFC<>0THEN50
  13. 45 PRINT"[204]OADING [208]ART 3......"
  14. 47 C=1:LOAD"RONDO3",8,1
  15. 50 BA=30120:SYS BA
  16. 53 PRINT"[147]"
  17. 55 A$="[210]ONDO":GOSUB1000
  18. 56 PRINT""
  19. 57 A$="BY [204]UDWIG VAN [194]EETHOVEN":GOSUB1000
  20. 58 A$="[158]ARRANGED BY [196]AVE [211]CHMOLDT":PRINT"":GOSUB1000
  21. 59 A$="72356,2574":GOSUB1000
  22. 60 PRINT"":A$="[156]USING '[205]ASTER [195]OMPOSER'":GOSUB1000
  23. 65 IFPEEK(789)<>234THEN65
  24. 70 BA=19124:SYS BA
  25. 80 IFPEEK(789)<>234THEN80
  26. 88 BA=15809:SYS BA
  27. 94 IFPEEK(789)<>234 THEN94
  28. 95 PRINT"[147]"
  29. 100 A$="[215]ANT TO HEAR IT AGAIN?  ( [217] OR [206] )":GOSUB1000
  30. 110 GETAA$:IFAA$=""THEN110
  31. 120 IFAA$="Y"THEN50
  32. 130 IF AA$="N"THENEND
  33. 135 GOTO 110
  34. 1000 PRINTSPC(20-LEN(A$)/2)A$:RETURN
  35.